Sub 첫번째매크로_참조()

    Range("D6:D9").Value = Range("B6:B9").Value
    
    Range("D6:D9").TextToColumns FieldInfo:=Array(1, 3)

    Range("F6").Value = "최준선"

End Sub